(sgml-tag-help): Pass proper format string to message.

diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index f146e21a4b360136f9f20e2b507d1a1676a71167..b71e0a2f1290fdb6135a7a7b750ec30ac5bacdd3 100644 (file)
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -530,7 +530,8 @@ With prefix ARG only self insert."
   (or (stringp tag)
       (error "No tag selected"))
   (setq tag (downcase tag))
-  (message (or (cdr (assoc tag sgml-tag-help))
+  (message "%s"
+          (or (cdr (assoc tag sgml-tag-help))
               (and (eq (aref tag 0) ?/)
                    (cdr (assoc (substring tag 1) sgml-tag-help)))
               "No description available")))